home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvapview.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
28KB
|
998 lines
/************************************************************************
* ログ参照 *
************************************************************************/
/* 指定ディレクトリのサブディレクトリ名を返す */
%subdir{
[dir,sdir]
case (@nochar(dir)==3,
{Yes}, {im(dir|sdir)},
{No}, {im(dir|{\}|sdir)});
};
%ViewLOG{
[logdir,memono]
fn:=@tail(logdir,{\});
InactMemo;
loop({
dispoff({Yes});
command({dir }|logdir|{>}|TEMPPATH|{\_mopdir.tmp});
dispoff({No});
%lineno @noline(@read(TEMPPATH|{\_mopdir.tmp}));
case( (@nochar(logdir)!=3&&lineno>9)||
(@nochar(logdir)==3&&lineno>7),
{Yes},Viewlog1,
{No}, {SNDMSG({kaknin_f.snd});
select(logdir|{ は空です},99999,{im({No})},
{ 確認 },{im({No})})});
});
/* ログ参照に使用したメモの削除処理 */
loop({
case (@mlast>=memono,
{Yes}, {case (@mcheck==0,{Yes},{mopen(@mlast)});
case (@mcheck>=memono,
{Yes},{mclose(3)},
{No},{mclose(1)});
im({Yes})},
{No},{im({No})});
});
setcdir(DIR1);
};
/* 1ログファイルの表示処理 */
%Select{
%LineNo @xlinenum;%MemoLine @nolmemo(memono)-1;
%line1 @case (LineNo>MemoLine,
{Yes},{im(@memo(memono,MemoLine,1))},
{No},{case (LineNo<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo,1))})});
case (@body(line1,{<},{>})={DIR},
{Yes}, {ViewLOG(@subdir(logdir,
@head(@getchar(line1,1,8),{ })),memono)},
{No},
{case (@getchar(line1,10,3)<>{ },
{Yes},
{LOGFILE:=@subdir(logdir,
@head(@getchar(line1,1,8),{ })|{.}|
@head(@getchar(line1,10,3),{ }))},
{No},
{LOGFILE:=@subdir(logdir,
@head(@getchar(line1,1,8),{ }))});
%m1 memono;
InactMemo;
case(@mlast>=m1,{Yes},{mclear(m1)});
mread(LOGFILE,m1);mopen(m1,0,21,639,459,{w});
loop({
footnote({復帰終了削除更新選択}|
{DOWN解石},{b});
waitx();
case(@xtype,
101,{InactMemo;FLG:={Return};im({No})},
201,{InactMemo;FLG:={Return};im({No})},
102,
{InactMemo;footnote({});im({No})},
202,
{InactMemo;footnote({});im({No})},
103,delLOG,203,delLOG,
104,updLOG,204,updLOG,
105,{whereup(m1);im({Yes})},
205,{whereup(m1);im({Yes})},
106,{wheredown;im({Yes})},
206,{wheredown;im({Yes})},
107,{ISH;im({Yes})},
207,{ISH;im({Yes})},
m1,{whereup(m1);im({Yes})},,{im({Yes})});
})});
case(FLG,{Return},{im({No})},,{im({Yes})});
};
/* ログファイル名の変更処理 */
%Rename{
footnote({ファイル名を変更しています});
%LineNo @xlinenum;
%MemoLine @nolmemo(memono)-1;
%line1 @case (LineNo>MemoLine,
{Yes}, {im(@memo(memono,MemoLine,1))},
{No}, {case (LineNo<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo,1))})});
case (@body(line1,{<},{>})={DIR},
{Yes}, {SNDMSG({kaknin_f.snd});
select({ディレクトリ名は変更できません},
99999,{im({No})},
{ 確認 },{im({No})})},
{No}, {var file [64];
case (@getchar(line1,10,3)<>{ },
{Yes},{file:=@subdir(logdir,
@head(@getchar(line1,1,8),{ })|
{.}|@head(@getchar(line1,10,3),{ }))},
{No},{file:=@subdir(logdir,
@head(@getchar(line1,1,8),{ }))});
SNDMSG({nyuryo_f.snd});
footnote({新しいファイル名を入力して下さい});
%file2 @input({新しいファイル名を入力して下さい},,
@tail(file,{\}));
case (file2={}||file2=@tail(file,{\})||
@filechk(file2),
{No},
{footnote({ファイル名を変更しています});
dispoff({Yes});
command({rename }|file|{ }|file2);
command({dir }|logdir|{>}|TEMPPATH|{\_mopdir.tmp});
dispoff({No});
InactMemo;
case(@mlast>=memono,{Yes},{mclear(memono)});
madd(memono,@read(TEMPPATH|{\_mopdir.tmp},7,lineno-9));
mopen(memono,0,21,639,459,{r})})});
im({Yes});
};
/* ログファイルの複写処理 */
%Copy{
footnote({ファイルを複写します});
%LineNo @xlinenum;
%MemoLine @nolmemo(memono)-1;
%line1 @case (LineNo>MemoLine,
{Yes}, {im(@memo(memono,MemoLine,1))},
{No}, {case (LineNo<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo,1))})});
case (@body(line1,{<},{>})={DIR},
{Yes}, {SNDMSG({kaknin_f.snd});
select({ディレクトリは複写できません},
99999,{im({No})},
{ 確認 },{im({No})})},
{No}, {case (@getchar(line1,10,3)<>{ },
{Yes}, {LOGFILE:=@subdir(logdir,
@head(@getchar(line1,1,8),{ })|
{.}|@head(@getchar(line1,10,3),{ }))},
{No}, {LOGFILE:=@subdir(logdir,
@head(@getchar(line1,1,8),{ }))});
SNDMSG({erande_f.snd});
footnote({複写先のファイルを指定して下さい});
%file2 @filesel;
case (file2={},
{No}, {footnote({ファイルを複写します});
dispoff({Yes});
command({copy }|LOGFILE|{ }|file2);
dispoff({No})})});
im({Yes});
};
/* ディレクトリ表示と選択処理 */
%Viewlog1{
InactMemo;
case(@mlast>=memono,{Yes},{mclear(memono)});
case (@nochar(logdir)==3,
{Yes},{madd(memono,@read(TEMPPATH|{\_mopdir.tmp},5,lineno-7));
setcdir(logdir)},
{No},{madd(memono,@read(TEMPPATH|{\_mopdir.tmp},7,lineno-9));
setcdir(logdir)});
mopen(memono,0,21,639,459,{r});
SNDMSG({erande_f.snd});
footnote({復帰終了選択改名複写解凍},{b});
waitx();
case (@xtype,
memono,Select,
101,{FLG:={Return};im({No})},
201,{FLG:={Return};im({No})},
102,{im({No})}, 202,{im({No})},
103,Select, 203,Select,
104,Rename, 204,Rename,
105,Copy, 205,Copy,
106,Extract, 206,Extract,
,{im({Yes})});
};
/* 表示中のファイル内のISHデータを解石する */
%ISH{
%cdir @getcdir;
footnote({解石ファイルを保存するディレクトリへ移動して右クリックして下さい});
filesel;
footnote({ISHデータ解石中});
command({ISH }|LOGFILE);
setcdir(cdir);
};
/* *.lzhファイルの解凍処理 */
%Extract{
footnote({圧縮形式ファイルの解凍を行います});
%LineNo @xlinenum;
%MemoLine @nolmemo(memono)-1;
%line1 @case (LineNo>MemoLine,
{Yes}, {im(@memo(memono,MemoLine,1))},
{No}, {case (LineNo<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo,1))})});
case (@getchar(line1,10,3)={LZH},
{No}, {SNDMSG({kaknin_f.snd});
select({圧縮ファイルでないので解凍できません},99999,,
{ 確認 },)},
{Yes}, {var file [64];
file:=@subdir(logdir,@head(@getchar(line1,1,8),{ }));
%cdir @getcdir;
SNDMSG({erande.snd});
footnote({解凍先のディレクトリに移動して}|
{右クリックして下さい});
filesel;
footnote({圧縮ファイルを解凍しています});
InactMemo;
command({lha x }|file);
setcdir(cdir);
dispoff({Yes});
command({dir }|logdir|{>}|TEMPPATH|{\_mopdir.tmp});
dispoff({No});
case(@mlast>=memono,{Yes},{mclear(memono)});
madd(memono,@read(TEMPPATH|{\_mopdir.tmp},7,lineno-9));
mopen(memono,0,21,639,459,{r})});
im({Yes});
};
/* ログファイルの削除処理 */
%delLOG{
footnote({ログファイルを削除します});
SNDMSG({kaknin_f.snd});
select({現在表示しているログファイルを削除します},
99999,{im({Yes})},
{ 削除する }, {InactMemo;
delfile(LOGFILE);
im({No})},
{ 削除しない }, {im({Yes})});
};
/* ログファイルの更新処理 */
%updLOG {
footnote({ログファイルを更新します});
SNDMSG({kaknin_f.snd});
select({現在表示しているログファイルを更新します},
99999,{im({Yes})},
{ 更新する }, {InactMemo;
delfile(LOGFILE);
mwrite(LOGFILE,memono);
dispoff({Yes});
command({dir }|logdir|{>}|TEMPPATH|
{\_mopdir.tmp});
dispoff({No});
im({No})},
{ 更新しない },{im({Yes})});
};
/* ログ保存モードが全体で一つの場合でジャンプコードが送信されている行の行
番号を返す*/
%findcode{
%LineNo @xlinenum;
%MemoLine @nolmemo(memono)-1;
%lineno @case (LineNo>MemoLine,
{Yes}, {im(MemoLine)},
{No}, {case (LineNo<=0,
{Yes},{im(1)},
{No},{im(LineNo)})});
dispoff({Yes});
%Logfile @tail(LOGFILE,{\});
%Logfile2 @head(@tail(LOGFILE,{\}),{.})|{.sav};
case (DIR2={},
{No},
{command(DIR2|{\lcut }|Logfile|{ > lcut.tmp})},
{Yes},
{command({lcut }|Logfile|{ > lcut.tmp})});
delfile(LOGFILE);
command({rename }|Logfile2|{ }|Logfile);
dispoff({No});
A:=1;
B:=0;
C:=0;
%LCUTDATA @read({lcut.tmp});
D:=(@noline(LCUTDATA)-2)/2;
loop({
B:=@tail(@head(@getline(LCUTDATA,A,1),{: }),{ });
case (D<=0,
{No},{case (B<lineno,
{Yes}, {C:=B;A:=A+2;D:=D-1;im({Yes})},
{No}, {im({No})})},
{Yes},{im({No})});
});
delfile({lcut.tmp});
im(C);
};
/* アップロード先の振り分け */
%whereup{
[memono]
var jumpcode[50];
var forumnum[50];
var sendid[8];
%LineNo @xlinenum;
%MemoLine @nolmemo(memono)-1;
%line1 @case (LineNo>MemoLine,
{Yes}, {im(@memo(memono,MemoLine,1))},
{No}, {case (LineNo<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo,1))})});
%line2 @case (LineNo-3>MemoLine-3,
{Yes}, {im(@memo(memono,MemoLine-3,1))},
{No}, {case (LineNo-3<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo-3,1))})});
%line3 @case (LineNo-2>MemoLine-2,
{Yes}, {im(@memo(memono,MemoLine-2,1))},
{No}, {case (LineNo-2<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo-2,1))})});
%line4 @case (LineNo+5>MemoLine+5,
{Yes}, {im(@memo(memono,MemoLine+5,1))},
{No}, {case (LineNo+5<=0,
{Yes},{im(@memo(memono,1,1))},
{No},{im(@memo(memono,LineNo+5,1))})});
case (@getchar(line1,1,6)={文書名},
{Yes}, {case(@getchar(line2,1,15)={発信者:MHSX400},
{Yes}, {var mailtitle[50];
var sendid[8];
mailtitle:={RE:}|@head(@getchar(line1,9),{\n});
sendid:=@getchar(line4,13,8);
NIFMAIL},
{No}, {var mailtitle[50];
var sendid[8];
mailtitle:={RE:}|@head(@getchar(line1,9),{\n});
sendid:=@getchar(line2,9,8);
MAIL})},
{No}, {case (SAVE={BOARD},
{Yes},
{case (@getchar(line1,1,8)={★タイト},
{Yes},{jumpcode:=@head(@body(@getcdir,
LOGPATH|{\}),{\});
forumnum:=@tail(@getcdir,{\});
sendid:=@head(line1,{(},{)});
saymes},
{No}, {SNDMSG({okasi_f.snd});
select({カーソルを}|
{「★タイトル」}|
{に移動して下さい},99999,,
{ 確認 },)})},,{
case (@getchar(line1,1,8)={****},
{Yes},
{case (SAVE={JUMPCODE},
{Yes},
{jumpcode:=@tail(@getcdir,{\});
forumnum:=@head(@tail(line3,{,J)=RN}),
{\n})});
case (SAVE={WHOLE},
{Yes},
{%LINE @findcode;
jumpcode:=@head(@memo(memono,LINE,1),
{,J)=J },{\n});
forumnum:=@head(@tail(line3,{,J)=RN}),
{\n})});
saymes},,
{SNDMSG({okasi_f.snd});
select({カーソルを}|
{「**** ボード名 ****」}|
{に移動して下さい},99999,,
{ 確認 },)})})});
};
%saymes{
SNDMSG({erande_f.snd});
footnote({アップロードする場所の種類を選択して下さい});
select({アップロードする場所の種類を選択して下さい},99999,,
{ SIG },{saySIG},
{ BBS },{case (SAVE,
{BOARD},
{sayMES3({BBS})},,
{sayMES1({BBS})})},
{ CUG },{sayCUG});
};
%saySIG{
SNDMSG({erande_f.snd});
footnote({アップロードする場所の種類を選択して下さい});
select({アップロードする場所の種類を選択して下さい},99999,,
{ フォーラム },{case (SAVE,
{BOARD},
{sayMES3({フォーラム})},,
{sayMES1({フォーラム})})},
{ 会議室 },{case (SAVE,
{BOARD},
{sayMES3({SIG内会議室})},,
{sayMES1({SIG内会議室})})});
};
%sayCUG{
SNDMSG({erande_f.snd});
footnote({アップロードする場所の種類を選択して下さい});
select({アップロードする場所の種類を選択して下さい},99999,,
{ 掲示板 },{case (SAVE,
{BOARD},
{sayMES4({CUG内掲示板})},,
{sayMES2({CUG内掲示板})})},
{ 会議室 },{case (SAVE,
{BOARD},
{sayMES4({CUG内会議室})},,
{sayMES2({CUG内会議室})})});
};
/* ダウン場所選択 */
%wheredown{
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},99999,,
{ SIG },{downSIG},
{ CUG },{downCUG});
};
%downSIG{
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},99999,,
{ OSL },{downOSLLIB({SIG内OSL})},
{ ライブラリ },{downOSLLIB({SIG内ライブラリ})});
};
%downCUG{
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},99999,,
{ OSL },{downCUGOSL({CUG内OSL})},
{ ライブラリ },{downCUGOSL({CUG内ライブラリ})});
};
/* SIG・BBSへの発言作成処理 */
%sayMES1{
[WHERE]
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane({c}|WHERE|{発言アップロード予約\n}|
{tジャンプコード /12345678\n}|
{tボード番号 /12\n}|
{tタイトル /\n}|
{s/ 登録 / 取消 \n},jumpcode,forumnum);
%JUMP @head(@getline(a,1,1),{\n});
%NUMBER @head(@getline(a,2,1),{\n});
%TITLE @head(@getline(a,3,1),{\n});
%ok @head(@getline(a,4,1),{\n});
case (ok==1,
{Yes}, {case (@nochar(TITLE)>={60},
{No},
{footnote(WHERE|{への送信文書}|
{の作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 WHERE|{/}|JUMP|{/}|NUMBER|{/}|
TITLE|{/}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},,
{im({Yes})});
};
footnote(WHERE|{への送信文書の作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* SIG・BBSへの発言作成処理(ボード別に保存) */
%sayMES3{
[WHERE]
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane({c}|WHERE|{発言アップロード予約\n}|
{tジャンプコード /12345678\n}|
{tボード番号 /12\n}|
{tタイトル /\n}|
{s/ 登録 / 取消 \n}|
{c\n}|
{tメール宛先 /12345678\n}|
{s/ 登録 / 取消 \n},jumpcode,forumnum,,sendid);
%JUMP @head(@getline(a,1,1),{\n});
%NUMBER @head(@getline(a,2,1),{\n});
%TITLE @head(@getline(a,3,1),{\n});
%ok @head(@getline(a,4,1),{\n});
%SENDID @head(@getline(a,5,1),{\n});
%ok2 @head(@getline(a,6,1),{\n});
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No},
{footnote(WHERE|{への送信文書}|
{の作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 WHERE|{/}|JUMP|{/}|NUMBER|{/}|
TITLE|{/}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},,
{case(ok2,{ 1},
{case (@nochar(TITLE)>={40},
{No},
{footnote({テキストメールの作成を行います});
%file1 @crefile(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 {テキストメール/}|
SENDID|{//}|TITLE|{//}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case (@mcheck!=memono+1,
{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で20文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},,
{im({Yes})})});
};
footnote(WHERE|{への送信文書の作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* CUGへの発言作成処理 */
%sayMES2{
[WHERE]
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane( {c}|WHERE|{発言アップロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{tメインメニュー番号 /12\n}|
{tボード 番号 /12\n}|
{tタイトル /\n}|
{s/ 登録 / 取消 \n},
jumpcode,@tail(PCVAN,{/}|jumpcode|{/},{/}),
,forumnum);
%JUMP @head(@getline(a,1,1),{\n});
%PASS @head(@getline(a,2,1),{\n});
%MAINNUM@head(@getline(a,3,1),{\n});
%NUMBER @head(@getline(a,4,1),{\n});
%TITLE @head(@getline(a,5,1),{\n});
%ok @head(@getline(a,6,1),{\n});
case (ok==1,
{Yes}, {case (@nochar(TITLE)>={60},
{No},
{footnote(WHERE|{への送信文書}|
{の作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 WHERE|{/}|JUMP|{/}|PASS|{/}|
MAINNUM|{/}|NUMBER|{/}|TITLE|{/}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{No}, {im({Yes})});
};
footnote(WHERE|{への送信文書の作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* CUGへの発言作成処理(ボード別に保存) */
%sayMES4{
[WHERE]
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane({c}|WHERE|{発言アップロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{tメインメニュー番号 /12\n}|
{tボード 番号 /12\n}|
{tタイトル /\n}|
{s/ 登録 / 取消 \n}|
{c\n}|
{tメール宛先 /12345678\n}|
{s/ 登録 / 取消 \n},
jumpcode,@tail(PCVAN,{/}|jumpcode|{/},{/}),,forumnum,,sendid);
%JUMP @head(@getline(a,1,1),{\n});
%PASS @head(@getline(a,2,1),{\n});
%MAINNUM@head(@getline(a,3,1),{\n});
%NUMBER @head(@getline(a,4,1),{\n});
%TITLE @head(@getline(a,5,1),{\n});
%ok @head(@getline(a,6,1),{\n});
%SENDID @head(@getline(a,7,1),{\n});
%ok2 @head(@getline(a,8,1),{\n});
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No},
{footnote(WHERE|{への送信文書}|
{の作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 WHERE|{/}|JUMP|{/}|PASS|{/}|
MAINNUM|{/}|NUMBER|{/}|
TITLE|{/}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},,
{case(ok2,{ 1},
{case (@nochar(TITLE)>={40},
{No},
{footnote({テキストメールの作成を行います});
%file1 @crefile(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 {テキストメール/}|
SENDID|{//}|TITLE|{//}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case (@mcheck!=memono+1,
{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{Yes},
{SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で20文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},,
{im({Yes})})});
};
footnote(WHERE|{への送信文書の作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* テキストメール作成処理 */
%MAIL{
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane( {cテキストメールアップロード予約\n}|
{t送信ID /\n}|
{c 複数のIDに送信する場合は「,」で区切って下さい\n}|
{tタイトル /12345678901234567890}|
{12345678901234567890\n}|
{t送信日 /123456\n}|
{c (例)920428 92年4月28日に送信する場合\n}|
{rコマンド /BC /無し\n}|
{s/ 登録 / 取消 \n},sendid,mailtitle);
%SENDID @head(@getline(a,1,1),{\n});
%TITLE @head(@getline(a,2,1),{\n});
%AD @head(@getline(a,3,1),{\n});
%MAILCOM@case (@head(@getline(a,4,1),{\n}),
{ 1},{im({BC})},
{ 2},);
%ok @head(@getline(a,5,1),{\n});
case (ok==1,
{Yes}, {footnote({テキストメールの作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 {テキストメール/}|
SENDID|{/}|AD|{/}|TITLE|{/}|
MAILCOM|{/}|TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{No}, {im({Yes})});
};
footnote({テキストメールの作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* NIFTY連携メール作成処理 */
%NIFMAIL{
%savememo{
SNDMSG({nyuryo_f.snd});
%a @plane( {cNIFTY連携メールアップロード予約\n}|
{t送信ID /\n}|
{c 複数のIDに送信する場合は「,」で区切って下さい\n}|
{tタイトル /12345678901234567890}|
{12345678901234567890\n}|
{t送信日 /123456\n}|
{c (例)920428 92年4月28日に送信する場合\n}|
{s/ 登録 / 取消 \n},sendid,mailtitle);
%SENDID @head(@getline(a,1,1),{\n});
%TITLE @head(@getline(a,2,1),{\n});
%AD @head(@getline(a,3,1),{\n});
%ok @head(@getline(a,4,1),{\n});
case (ok==1,
{Yes}, {footnote({NIFTY連携メールの作成を行います});
%file1 @crefile2(TEMPPATH,{res});
case(@mcheck!=0,{Yes},{mclose(1)});
mwrite(TEMPPATH|{\}|file1,memono+1);
mopen(memono+1,0,241,639,459,{w});
%res1 {NIFTY連携メール/}|
SENDID|{/}|TITLE|{/}|AD|{/}|
TEMPPATH|{\}|file1|{\n};
write(TEMPPATH|{\PVAPUP.DAT},res1);
case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
mclose(3);
InactMemo;
mopen(memono,0,21,639,459,{w})},
{No}, {im({Yes})});
};
footnote({NIFTY連携メールの作成を行います});
OpenMemo;
loop({
footnote({終了取消参照清書},{b});
waitx();
case (@xtype,
101,{savememo},
201,{savememo},
102,{cancel},
202,{cancel},
103,{newmemo},
203,{newmemo},
104,{rewrite},
204,{rewrite},
,{im({Yes})});
});
setcdir(logdir);
im({Yes});
};
/* SIGからのダウンロード予約作成処理 */
%downOSLLIB{[WHERE]
SNDMSG({nyuryo_f.snd});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tジャンプコード /12345678\n}|
{tOSL・ライブラリ番号 /12\n}|
{tファイル・情報 番号 /123\n}|
{s/ 登録 / 取消 \n});
%JUMP @head(@getline(a,1,1),{\n});
%OSLNUM @head(@getline(a,2,1),{\n});
%DOWNNUM@head(@getline(a,3,1),{\n});
%ok @head(@getline(a,4,1),{\n});
case (ok==1,
{Yes}, {%res1 WHERE|{/}|
JUMP|{/}|OSLNUM|{/}|DOWNNUM|{\n};
write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
case(@mcheck!=memono,{Yes},{mopen(memono)});
im({Yes});
};
/* CUGからのダウンロード予約作成処理 */
%downCUGOSL{[WHERE]
SNDMSG({nyuryo_f.snd});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{tメインメニュー 番号 /12\n}|
{tOSL・ライブラリ番号 /12\n}|
{tファイル・情報 番号 /123\n}|
{s/ 登録 / 取消 \n});
%JUMP @head(@getline(a,1,1),{\n});
%PASS @head(@getline(a,2,1),{\n});
%MAINNUM@head(@getline(a,3,1),{\n});
%OSLNUM @head(@getline(a,4,1),{\n});
%DOWNNUM@head(@getline(a,5,1),{\n});
%ok @head(@getline(a,6,1),{\n});
case (ok==1,
{Yes}, {%res1 WHERE|{/}|
JUMP|{/}|PASS|{/}|MAINNUM|{/}|
OSLNUM|{/}|DOWNNUM|{\n};
write(TEMPPATH|{\PVAPDOWN.DAT},res1);});
case(@mcheck!=memono,{Yes},{mopen(memono)});
im({Yes});
};
/* アップ用文書作成用メモをオープンする */
%OpenMemo{
InactMemo;
mopen(memono,0,21,639,240,{w});
mclose(1);
madd(memono+1,{\n});
mclear(memono+1);
mopen(memono+1,0,241,639,459,{w});
};
/* 他のファイルを参照するためにメモを開く */
%newmemo{
case (@mlast==9,
{Yes}, {SNDMSG({kaknin_f.snd});
select({メモ番号が一杯のため、}|
{新しいメモが開けません},
99999,,{ 確認 },)},
{No},
{case(@mcheck!=0,{Yes},{mclose(1)});
%memono @mlast+1;
madd(memono,{\n});
mclear(memono);
%file1 @filesel;
case (file1<>{}&&@filechk(file1),
{Yes},{mread(file1,memono)});
mopen(memono,0,161,639,379)});
im({Yes});
};
/* アップ用文書を清書する */
%rewrite{
footnote({メモ}|memono+1|{を清書しています});
InactMemo;
setcdir2(DIR1);
dispoff({Yes});
delfile(TEMPPATH|{\_moptext.tmp});
delfile(TEMPPATH|{\_moptext.new});
mwrite(TEMPPATH|{\_moptext.tmp},memono+1);
case (DIR2={},
{No}, {command(DIR2|{\txf -i }|TEMPPATH|{\_moptext.tmp -o }|
TEMPPATH|{\_moptext.new})},
{Yes}, {command({txf -i }|TEMPPATH|{\_moptext.tmp -o }|
TEMPPATH|{\_moptext.new})});
dispoff({No});
case (@filechk(TEMPPATH|{\_moptext.new}),
{Yes}, {mclear(memono+1);
mread(TEMPPATH|{\_moptext.new},memono+1);
mopen(memono,0,21,639,240,{w});
%memomax @mlast;
var memono1[2];
memono1:=memono+2;
loop({
case (memono1<=memomax,
{Yes},{mclose(1);mopen(memono1)});
memono1:=memono1+1;
im(memono1<=memomax);
});
mclose(1);
mopen(memono+1,0,181,639,459,{w})},
{No}, {SNDMSG({kaknin_f.snd});
select({清書機能には TXF.EXE が}|
{パスの通ったディレクトリに必要です},
99999,,{ 確認 },);
mopen(memono,0,21,639,240,{w});
%memomax @mlast;
var memono1[2];
memono1:=memono+2;
loop({
case (memono1<=memomax,
{Yes},{mclose(1);mopen(memono1)});
memono1:=memono1+1;
im(memono1<=memomax);
});
mclose(1);
mopen(memono+1,0,181,639,459,{w});
});
im({Yes});
};
/* アップ文書作成をキャンセルする */
%cancel {
SNDMSG({kaknin_f.snd});
footnote({作成中の文書を取消しますか?});
select({作成中の文書を取消しますか?},
99999,{footnote({});im({Yes})},
{ は い }, {CloseAllMemo;
mopen(memono,0,21,639,459,{w});
footnote({});
im({No})},
{ いいえ },{footnote({});im({Yes})});
};
/* 実行 */
var fn [8];
var LOGFILE [64];
var FLG [6];
FLG:={};
%memono @mlast+1;
footnote({});
case (memono>5,
{No}, {ViewLOG(LOGPATH,memono)},
{Yes}, {SNDMSG({kaknin_f.snd});
footnote({メモ5-9の内容が消去されます よろしいですか?});
select({メモ5-9の内容が消去されます よろしいですか?},
99999,,
{ は い },{%memono 5;ViewLOG(LOGPATH,memono)},
{ いいえ },);});
setcdir(DIR1);